home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / show / gs503_data.lha / Ghostscript / data / viewps2a.ps < prev    next >
Text File  |  1997-08-14  |  1KB  |  34 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Display a file produced by ps2ascii with no switch or with -dCOMPLEX.
  19. % This is just a procset to read in before the file to display.
  20.  
  21. /init { 0.1 0.1 scale } bind def
  22. init
  23. /next { currentfile token pop } bind def
  24. /F { next next pop next exch selectfont } bind def
  25. /P { showpage init } bind def
  26. /S
  27.  { next next moveto
  28.    next dup stringwidth pop next exch div
  29.    gsave 1 scale show grestore
  30.  } bind def
  31. /C { next next next setrgbcolor } bind def
  32. /I { next next next next gsave 0.75 setgray rectfill grestore } bind def
  33. /R { next next next next rectfill } bind def
  34.